home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0053_Fast Screen Writes.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  752b  |  20 lines
  1. {
  2. ├>Ok, here is a simple problem that is really annoying me!
  3. ├>Whenever I try to put a character at position x=80, y=25, the screen
  4. ├>scrolls up one line.
  5.  
  6. Don't use gotoxy(); and write(); statements. Try this one:
  7. }
  8.   Procedure FastWrite(col,row,Attrib:Byte; Str:string80);
  9.   begin
  10.     inline
  11.       ($1E/$1E/$8A/$86/row/$B3/$50/$F6/$E3/$2B/$DB/$8A/$9E/col/
  12.       $03/$C3/$03/$C0/$8B/$F8/$be/$00/$00/$8A/$BE/attrib/
  13.       $8a/$8e/str/$22/$c9/$74/$3e/$2b/$c0/$8E/$D8/$A0/$49/$04/
  14.       $1F/$2C/$07/$74/$22/$BA/$00/$B8/$8E/$DA/$BA/$DA/$03/$46/
  15.       $8a/$9A/str/$EC/$A8/$01/$75/$FB/$FA/$EC/$A8/$01/$74/$FB/
  16.       $89/$1D/$47/$47/$E2/$Ea/$2A/$C0/$74/$10/$BA/$00/$B0/
  17.       $8E/$DA/$46/$8a/$9A/str/$89/$1D/$47/$47/$E2/$F5/$1F);
  18.   end;
  19.  
  20.